//Adicione do uses
Uses ShellApi;

Procedure Exportar_Memoria(Tabela: TDataSet; var Lista: TMemo);
Var i: integer; Texto, Campo: String;
begin
//lipando a lista antiga
Lista.Lines.Clear;
//varrendo todos os campos
For i:= 0 to Tabela.FieldList.Count-1 do begin
  //descobrindo o nome do campo
  Campo:= Tabela.FieldList.Strings[i];
  //buscando seu valor no seu registro a tual
  Texto:= Texto +': '+ Tabela.FieldByName(Campo).AsString;
  //adicionando em uma lista
  Lista.Lines.add(Texto);
  end;//for
//gravando e abrindo
Lista.Lines.SaveToFile('temp.txt');
ShellExecute(GetDesktopWindow,'open',pchar('temp.txt'),nil,nil,sw_ShowNormal);
end;
